REQUIRE "EXPRS.REL[AL,HE]" LOAD_MODULE;
EXTERNAL INTEGER VARNO;
EXTERNAL INTEGER CURTIME;
EXTERNAL ITEMVAR CURWLD;
EXTERNAL RPTR(VALU$) VOLD,VNEW; ! *** (RHT) These are part of kluge
				  to make VCHANGE do the "right" thing
				  with ALSO_DO. ***;

EXTERNAL RANY PROCEDURE GETFREC(RPTR(FLUENT) FL;ITEMVAR WLD;BOOLEAN NONUSE(FALSE));
EXTERNAL RANY PROCEDURE PUTFREC(RANY FR;RPTR(FLUENT) FL;ITEMVAR WLD);
EXTERNAL PROCEDURE NOFREC(ITEMVAR WLD;RPTR(FLUENT) FL);
EXTERNAL RECURSIVE MATCHING PROCEDURE SATISFY_SET_FLUENT(? ITEMVAR WLD;
					RPTR(SET_FLUENT) SFL;REFERENCE RANY R);
EXTERNAL PROCEDURE PUT_SET_FLUENT(ITEMVAR WLD;RPTR(SET_FLUENT) SFL;RANY R);
EXTERNAL PROCEDURE REM_SET_FLUENT(ITEMVAR WLD;RPTR(SET_FLUENT) SFL;RANY R);
EXTERNAL RANY FRTEMP;
EXTERNAL RPTR(FLUENT) PROCEDURE NEW_FLUENT;
EXTERNAL RPTR(SET_FLUENT) PROCEDURE NEW_SET_FLUENT;
EXTERNAL RPTR(LBLVAR) PROCEDURE NEW_LBL(RANY ITEMVAR IV;
					  INTEGER DT;RPTR(BLOCK) BID);
EXTERNAL RANY PROCEDURE ASGLBL(RPTR(LBLVAR) L;RPTR(ANY_CLASS) SEM);
EXTERNAL RPTR(VARIABLE) PROCEDURE NEW_VAR(RANY ITEMVAR IV;
					  INTEGER DT;RPTR(BLOCK) BID);
EXTERNAL RPTR(CHANGER) PROCEDURE BLDCHG(RPTR(STMNT) S;RPTR(BLOCK) BID);
EXTERNAL RPTR(CALCULATOR) PROCEDURE BLDCALC(ITEMVAR WLD;RPTR(EXPRN) E;
						RPTR(BLOCK) BID);
EXTERNAL MATCHING RECPROC GEN_DEPS(ITEMVAR WLD;RPTR(VARIABLE,CALCULATOR) VAR;
					REFERENCE RPTR(VARIABLE) DV);
EXTERNAL MATCHING RECPROC GEN_CHANGERS(ITEMVAR WLD;RPTR(VARIABLE) VAR;
						REFERENCE RPTR(CHANGER) DV);
EXTERNAL MATCHING RECPROC GEN_CALCS(ITEMVAR WLD;RPTR(VARIABLE) VAR;
					REFERENCE RPTR(CALCULATOR) DV);
EXTERNAL RPTR (VNODE) PROCEDURE COPYVN(RPTR(VNODE) GN1);
EXTERNAL RPTR(VNODE) PROCEDURE OKVNGET(RPTR(VARIABLE) VAR;ITEMVAR WLD);
EXTERNAL RPTR(VNODE) RECURSIVE PROCEDURE INVALIDATE(RPTR(VARIABLE,CALCULATOR) VAR;
								 ITEMVAR WLD);
EXTERNAL RECURSIVE RPTR(VNODE) PROCEDURE EVALCALC(RPTR(CALCULATOR) CLC;
						  INTEGER T;
						  ITEMVAR WLD);
EXTERNAL RPTR(VNODE) PROCEDURE EVALNODE(RPTR(VARIABLE,CALCULATOR) VAR;
						INTEGER T;ITEMVAR WLD);
EXTERNAL RECURSIVE RPTR(VALU$) PROCEDURE GETVALUE(RPTR(VARIABLE) VAR;
								ITEMVAR WLD);
EXTERNAL INTEGER SIMPLE PROCEDURE DTYPE(INTEGER DT);
EXTERNAL RPTR(VALU$) PROCEDURE VTCHECK(RPTR(VARIABLE) VAR;RPTR(VALU$) VAL);
EXTERNAL RECURSIVE PROCEDURE VCHANGE(RPTR(VARIABLE) VAR;
					RPTR(VALU$) NEWV;ITEMVAR WLD);
IFCR FALSE THENC
EXTERNAL RPTR(VARIABLE) PROCEDURE MAKE_VAR(STRING ID;
			INTEGER DT;RPTR(VALU$) V;ITEMVAR WLD);
ENDC
EXTERNAL RECURSIVE BOOLEAN PROCEDURE EXPEQV(RPTR(EXPRN,VALU$,VARIABLE) E1,E2);
EXTERNAL REXPR RECPROC INVSIMP(REXPR E);
EXTERNAL RPTR(VALU$) RECPROC EVALEXPR(RPTR(NOMV,EXPRN,VARIABLE,VALU$) E;
								 ITEMVAR WLD);
EXTERNAL RECPROC ADDNEEDED(RPTR(EXPRN,VARIABLE,VALU$) EE;REFERENCE SET L);
EXTERNAL RPTR(CALCULATOR) PROCEDURE NEW_CALC(RPTR(EXPRN,VARIABLE,VALU$) E);
EXTERNAL PROCEDURE MK_CALC(ITEMVAR WLD;RPTR(CALCULATOR) CLC);
EXTERNAL PROCEDURE ADDCALC(ITEMVAR WLD;RPTR(VARIABLE) VAR;RPTR(CALCULATOR) CLC);
EXTERNAL PROCEDURE REMCALC(ITEMVAR WLD;RPTR(VARIABLE) VAR;RPTR(CALCULATOR) CLC);
EXTERNAL PROCEDURE KILLCALC(ITEMVAR WLD;RPTR(CALCULATOR) CLC);
EXTERNAL PROCEDURE REMCHG(ITEMVAR WLD;RPTR(VARIABLE) VAR;RPTR(CHANGER) CHG);
EXTERNAL PROCEDURE ADDCHG(ITEMVAR WLD;RPTR(VARIABLE) VAR;RPTR(CHANGER) CHG);
EXTERNAL PROCEDURE KILLCHG(ITEMVAR WLD;RPTR(CHANGER) CHG);
EXTERNAL PROCEDURE KILLVAR(ITEMVAR WLD;RPTR(VARIABLE) VAR);